home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 3 / Literacy Segments Part 3 / background_129872.txt < prev    next >
Text File  |  1989-08-22  |  11KB  |  527 lines
  1. -- background: 129872 from stack: in
  2. -- bmap block id: 130146
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 2.4.3 Practice2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   repeat with i = 1 to 3
  11.     get line (line 2 of fld "key") of answerTracker
  12.     if it = "y" and i = line 1 of fld "key"
  13.     then set the hilite of bg btn ("graphic" & i) to true
  14.   else set the hilite of bg btn ("graphic" & i) to false
  15. end repeat
  16. pass openCard
  17. end openCard
  18.  
  19. on hideFeedback
  20.   lock screen
  21.   hide fld "Feedback1"
  22.   hide fld "Feedback2"
  23.   hide fld "Feedback3"
  24.   hide fld "Feedback4"
  25.   hide fld "Feedback5"
  26.   hide fld "CorrectAnswer"
  27.   hide fld "MasterFeedback"
  28.   hide bg btn "Done"
  29.   unlock screen
  30. end hideFeedback
  31.  
  32. on showFeedback
  33.   lock screen
  34.   show fld "Feedback1"
  35.   show fld "Feedback2"
  36.   show fld "Feedback3"
  37.   show fld "Feedback4"
  38.   show fld "Feedback5"
  39.   show fld "CorrectAnswer"
  40.   show fld "MasterFeedback"
  41.   show bg btn "Done"
  42.   unlock screen
  43. end showFeedback
  44.  
  45. on feedback
  46.   global answerTracker
  47.   lock screen
  48.  
  49.   get last char of the short name of the target
  50.   if line (line 2 of fld "key") of answerTracker ‚↠"y" then
  51.     -- don't overwrite if Q has been answered
  52.     if it = line 1 of fld "key" then
  53.       -- this is the correct answer
  54.       put "y" into line (line 2 of fld "key") of answerTracker
  55.     else put "n" into line (line 2 of fld "key") of answerTracker
  56.   end if
  57.  
  58.   put fld ("feedback" & it) into fld "masterFeedback"
  59.   show fld "masterFeedback"
  60.   show bg btn "Done"
  61.  
  62.   unlock screen
  63. end feedback
  64.  
  65.  
  66. -- part 3 (field)
  67. -- low flags: 01
  68. -- high flags: 0000
  69. -- rect: left=18 top=1 right=38 bottom=442
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 0
  73. -- font id: 156
  74. -- text size: 24
  75. -- style flags: 10240
  76. -- line height: 32
  77. -- part name: Title
  78.  
  79.  
  80. -- part 5 (field)
  81. -- low flags: 81
  82. -- high flags: 0001
  83. -- rect: left=423 top=0 right=13 bottom=466
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 65535
  87. -- font id: 4
  88. -- text size: 9
  89. -- style flags: 0
  90. -- line height: 12
  91. -- part name: CardTitle
  92.  
  93.  
  94. -- part 14 (button)
  95. -- low flags: 00
  96. -- high flags: 0000
  97. -- rect: left=443 top=5 right=72 bottom=512
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Instant Reference
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   instantReference "2.4.3"
  109. end mouseUp
  110.  
  111.  
  112. -- part 15 (button)
  113. -- low flags: 00
  114. -- high flags: 2000
  115. -- rect: left=480 top=143 right=172 bottom=511
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 1310 / 1310
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Student Services
  124. ----- HyperTalk script -----
  125. on mousedown
  126.   SSpopUp
  127. end mousedown
  128.  
  129. on mouseup
  130.   if the mouseloc is not within the rect of me then exit to hyperCard
  131.   doSS
  132. end mouseup
  133.  
  134.  
  135.  
  136. -- part 16 (button)
  137. -- low flags: 00
  138. -- high flags: 2000
  139. -- rect: left=482 top=176 right=205 bottom=511
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 162 / 162
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: Help
  148. ----- HyperTalk script -----
  149. on mouseUp
  150.   Help
  151. end mouseUp
  152.  
  153.  
  154.  
  155. -- part 17 (button)
  156. -- low flags: 00
  157. -- high flags: 2000
  158. -- rect: left=482 top=294 right=320 bottom=509
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 1236 / 1236
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: Last Menu
  167. ----- HyperTalk script -----
  168. on mouseUp
  169.   go cd "Productivity Applic P/1"
  170. end mouseUp
  171.  
  172.  
  173. -- part 18 (button)
  174. -- low flags: 00
  175. -- high flags: 0000
  176. -- rect: left=478 top=319 right=341 bottom=498
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 1401 / 1401
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: Prev
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.  
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 19 (button)
  193. -- low flags: 00
  194. -- high flags: 0000
  195. -- rect: left=493 top=319 right=341 bottom=512
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 1400 / 1400
  198. -- text alignment: 1
  199. -- font id: 0
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: Next
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.  
  207. end mouseUp
  208.  
  209.  
  210.  
  211. -- part 21 (field)
  212. -- low flags: 01
  213. -- high flags: 0000
  214. -- rect: left=16 top=38 right=67 bottom=438
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 0
  218. -- font id: 156
  219. -- text size: 20
  220. -- style flags: 0
  221. -- line height: 26
  222. -- part name: Subtitle
  223.  
  224.  
  225. -- part 22 (field)
  226. -- low flags: 01
  227. -- high flags: 0000
  228. -- rect: left=16 top=70 right=145 bottom=445
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 0
  232. -- font id: 156
  233. -- text size: 16
  234. -- style flags: 0
  235. -- line height: 17
  236. -- part name: Question
  237.  
  238.  
  239. -- part 65 (button)
  240. -- low flags: 00
  241. -- high flags: 2000
  242. -- rect: left=95 top=174 right=280 bottom=162
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 1
  246. -- font id: 0
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: Graphic1
  251. ----- HyperTalk script -----
  252. on mouseUp
  253.   feedback
  254. end mouseUp
  255.  
  256.  
  257. -- part 33 (field)
  258. -- low flags: 81
  259. -- high flags: 2007
  260. -- rect: left=8 top=36 right=94 bottom=231
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 0
  264. -- font id: 156
  265. -- text size: 16
  266. -- style flags: 0
  267. -- line height: 17
  268. -- part name: Feedback1
  269.  
  270.  
  271. -- part 49 (button)
  272. -- low flags: 00
  273. -- high flags: 2000
  274. -- rect: left=218 top=174 right=280 bottom=285
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 0 / 0
  277. -- text alignment: 1
  278. -- font id: 0
  279. -- text size: 12
  280. -- style flags: 0
  281. -- line height: 16
  282. -- part name: Graphic2
  283. ----- HyperTalk script -----
  284. on mouseUp
  285.   feedback
  286. end mouseUp
  287.  
  288.  
  289. -- part 52 (field)
  290. -- low flags: 01
  291. -- high flags: 0000
  292. -- rect: left=16 top=144 right=164 bottom=445
  293. -- title width / last selected line: 0
  294. -- icon id / first selected line: 0 / 0
  295. -- text alignment: 0
  296. -- font id: 3
  297. -- text size: 10
  298. -- style flags: 256
  299. -- line height: 15
  300. -- part name: Instruction
  301.  
  302.  
  303. -- part 34 (field)
  304. -- low flags: 81
  305. -- high flags: 2007
  306. -- rect: left=8 top=97 right=155 bottom=231
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 0
  310. -- font id: 156
  311. -- text size: 16
  312. -- style flags: 0
  313. -- line height: 17
  314. -- part name: Feedback2
  315.  
  316.  
  317. -- part 35 (field)
  318. -- low flags: 81
  319. -- high flags: 2007
  320. -- rect: left=8 top=159 right=216 bottom=231
  321. -- title width / last selected line: 0
  322. -- icon id / first selected line: 0 / 0
  323. -- text alignment: 0
  324. -- font id: 156
  325. -- text size: 16
  326. -- style flags: 0
  327. -- line height: 17
  328. -- part name: Feedback3
  329.  
  330.  
  331. -- part 36 (field)
  332. -- low flags: 81
  333. -- high flags: 2007
  334. -- rect: left=8 top=219 right=277 bottom=231
  335. -- title width / last selected line: 0
  336. -- icon id / first selected line: 0 / 0
  337. -- text alignment: 0
  338. -- font id: 156
  339. -- text size: 16
  340. -- style flags: 0
  341. -- line height: 17
  342. -- part name: Feedback4
  343.  
  344.  
  345. -- part 42 (field)
  346. -- low flags: 01
  347. -- high flags: 0000
  348. -- rect: left=90 top=284 right=322 bottom=166
  349. -- title width / last selected line: 0
  350. -- icon id / first selected line: 0 / 0
  351. -- text alignment: 0
  352. -- font id: 156
  353. -- text size: 16
  354. -- style flags: 0
  355. -- line height: 17
  356. -- part name: Label2
  357.  
  358.  
  359. -- part 43 (field)
  360. -- low flags: 01
  361. -- high flags: 0000
  362. -- rect: left=213 top=284 right=321 bottom=320
  363. -- title width / last selected line: 0
  364. -- icon id / first selected line: 0 / 0
  365. -- text alignment: 0
  366. -- font id: 156
  367. -- text size: 16
  368. -- style flags: 0
  369. -- line height: 17
  370. -- part name: Label3
  371.  
  372.  
  373. -- part 50 (button)
  374. -- low flags: 00
  375. -- high flags: 2000
  376. -- rect: left=341 top=174 right=271 bottom=408
  377. -- title width / last selected line: 0
  378. -- icon id / first selected line: 0 / 0
  379. -- text alignment: 1
  380. -- font id: 0
  381. -- text size: 12
  382. -- style flags: 0
  383. -- line height: 16
  384. -- part name: Graphic3
  385. ----- HyperTalk script -----
  386. on mouseUp
  387.   feedback
  388. end mouseUp
  389.  
  390.  
  391. -- part 44 (field)
  392. -- low flags: 01
  393. -- high flags: 0000
  394. -- rect: left=336 top=284 right=320 bottom=426
  395. -- title width / last selected line: 0
  396. -- icon id / first selected line: 0 / 0
  397. -- text alignment: 0
  398. -- font id: 156
  399. -- text size: 16
  400. -- style flags: 0
  401. -- line height: 17
  402. -- part name: Label4
  403.  
  404.  
  405. -- part 39 (field)
  406. -- low flags: 81
  407. -- high flags: 2004
  408. -- rect: left=147 top=132 right=304 bottom=356
  409. -- title width / last selected line: 0
  410. -- icon id / first selected line: 0 / 0
  411. -- text alignment: 0
  412. -- font id: 156
  413. -- text size: 16
  414. -- style flags: 0
  415. -- line height: 17
  416. -- part name: MasterFeedback
  417.  
  418.  
  419. -- part 40 (button)
  420. -- low flags: 80
  421. -- high flags: A002
  422. -- rect: left=215 top=279 right=296 bottom=284
  423. -- title width / last selected line: 0
  424. -- icon id / first selected line: 0 / 0
  425. -- text alignment: 1
  426. -- font id: 0
  427. -- text size: 12
  428. -- style flags: 0
  429. -- line height: 16
  430. -- part name: Done
  431. ----- HyperTalk script -----
  432. on mouseUp
  433.   global answerTracker
  434.   lock screen
  435.   if line (line 2 of fld "key") of answerTracker = "y" then
  436.     -- question correctly answered
  437.     set the hilite of bg btn ("graphic" & line 1 of fld "key") to true
  438.   end if
  439.   hide fld "MasterFeedback"
  440.   hide bg btn "Done"
  441.   unlock screen
  442. end mouseUp
  443.  
  444.  
  445. -- part 53 (button)
  446. -- low flags: 00
  447. -- high flags: A004
  448. -- rect: left=179 top=321 right=340 bottom=324
  449. -- title width / last selected line: 0
  450. -- icon id / first selected line: 0 / 0
  451. -- text alignment: 1
  452. -- font id: 0
  453. -- text size: 12
  454. -- style flags: 0
  455. -- line height: 16
  456. -- part name: Answer
  457. ----- HyperTalk script -----
  458. on mouseUp
  459.   global answerTracker
  460.   lock screen
  461.   put "y" into line (line 2 of fld "key") of answerTracker
  462.   put fld "CorrectAnswer" into fld "MasterFeedback"
  463.   show fld "MasterFeedback"
  464.   show bg btn "Done"
  465.   unlock screen
  466. end mouseUp
  467.  
  468.  
  469. -- part 61 (field)
  470. -- low flags: 81
  471. -- high flags: 2007
  472. -- rect: left=238 top=32 right=89 bottom=461
  473. -- title width / last selected line: 0
  474. -- icon id / first selected line: 0 / 0
  475. -- text alignment: 0
  476. -- font id: 156
  477. -- text size: 16
  478. -- style flags: 0
  479. -- line height: 17
  480. -- part name: Feedback5
  481.  
  482.  
  483. -- part 63 (button)
  484. -- low flags: 00
  485. -- high flags: 2000
  486. -- rect: left=482 top=208 right=234 bottom=509
  487. -- title width / last selected line: 0
  488. -- icon id / first selected line: 1234 / 1234
  489. -- text alignment: 1
  490. -- font id: 0
  491. -- text size: 12
  492. -- style flags: 0
  493. -- line height: 16
  494. -- part name: Lesson
  495. ----- HyperTalk script -----
  496. on mouseUp
  497.   lesson "2.4.3"
  498. end mouseUp
  499.  
  500.  
  501. -- part 64 (field)
  502. -- low flags: 81
  503. -- high flags: 0002
  504. -- rect: left=1 top=307 right=341 bottom=40
  505. -- title width / last selected line: 0
  506. -- icon id / first selected line: 0 / 0
  507. -- text alignment: 0
  508. -- font id: 3
  509. -- text size: 12
  510. -- style flags: 0
  511. -- line height: 16
  512. -- part name: Key
  513.  
  514.  
  515. -- part 38 (field)
  516. -- low flags: 81
  517. -- high flags: 2007
  518. -- rect: left=8 top=282 right=340 bottom=231
  519. -- title width / last selected line: 0
  520. -- icon id / first selected line: 0 / 0
  521. -- text alignment: 0
  522. -- font id: 156
  523. -- text size: 16
  524. -- style flags: 0
  525. -- line height: 17
  526. -- part name: CorrectAnswer
  527.